home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Applications / Text / Text Editors / Alpha 5.31 Folder / Tcl / ElectricAlias / Aliases / aliases.Perl < prev    next >
Encoding:
Text File  |  1993-01-23  |  1.2 KB  |  26 lines  |  [TEXT/ALFA]
  1. # FILE: aliases.Perl
  2. #
  3. # DESC: Aliases for Perl mode
  4. #
  5. # LAST UPDATE: 01/06/93 5:29:47 AM 
  6.  
  7.     electricAlias-def •Perl •Perl •Perl
  8.     electricAlias-var Perl bb "\{"
  9.     electricAlias-var Perl eb "\}"
  10.     electricAlias-var Perl bc "#"
  11.     electricAlias-var Perl ec ""
  12.     electricAlias-def •Perl #!       "§«askalias {File name} NAME»#! /usr/local/bin/perl -f\r#\r# §{NAME}•\r\r•"
  13.     electricAlias-def •Perl sub      "§«askalias {subroutine name} NAME»sub §{NAME} \{\r\tlocal (•)=@_;\r\t•\r\}§{bc}endsub §{NAME}§{ec}•"
  14.     electricAlias-def •Perl \{       "\{\r\t•\r\}•"
  15.     electricAlias-def •Perl do       "do \{\r\t•\r\} while (•);•"
  16.     electricAlias-def •Perl for      "for (•;•;•) \{\r\t•\r\}§{bc}endfor§{ec}•"
  17.     electricAlias-def •Perl foreach  "foreach • (•) \{\r\t•\r\}§{bc}endforeach§{ec}•"
  18.     electricAlias-def •Perl while    "while (•) \{\r\t•\r\}§{bc}endwhile§{ec}•"
  19.     electricAlias-def •Perl until    "until (•) \{\r\t•\r\}§{bc}enduntil§{ec}•"
  20.     electricAlias-def •Perl if       "if (•) \{\r\t•\r\}§{bc}endif§{ec}•"
  21.     electricAlias-def •Perl unless   "unless (•) \{\r\t•\r\}§{bc}endunless§{ec}•"
  22.     electricAlias-def •Perl elsif    "\b\} elsif (•) \{\r•"
  23.     electricAlias-def •Perl elseif   "\b\} elsif (•) \{\r•"
  24.     electricAlias-def •Perl else     "\b\} else \{\r•"
  25.  
  26.